home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 December / CHIP Turkiye Aralık 1997.iso / internet / lsmirc61.exe / popups.in_ / popups.in
Encoding:
INI File  |  1997-09-19  |  43.1 KB  |  1,030 lines
  1. [bpopup]
  2. n0=&Little Star
  3. n1=About and Credits:run $mircdirbin\about.exe
  4. n2=-
  5. n3=General Options:run $mircdirbin\options.exe $ddename $+ @ $+ $mircdir
  6. n4=Audio/Visual Options:run $mircdirbin\visual.exe $ddename $mircdir $+ @ $+ $wavedir
  7. n5=Popup Options:run $mircdirbin\popups.exe $ddename $+ @ $+ $mircdir
  8. n6=%popsec:run $mircdirbin\security.exe $ddename $mircdir
  9. n7=-
  10. n8=User List Maintenance:run $mircdirbin\user.exe $ddename $+ @ $+ $mircdir
  11. n9=%popxdcc
  12. n10=.File List/Options:run $mircdirbin\xdcc.exe $ddename $+ @ $+ $mircdir
  13. n11=.-
  14. n12=.Enable:enablexdcc
  15. n13=.Disable:disablexdcc
  16. n14=.-
  17. n15=.Messaging
  18. n16=..Create Message:run $mircdirbin\xdccmsg.exe $ddename $+ @ $+ $mircdir $+ $allchans
  19. n17=..Kill Message
  20. n18=...%xdccm1:.timer280 off | altech -a %dis10 $+ Messaging to %xdccm1 halted | alert | unset %xdccm1
  21. n19=...%xdccm2:.timer281 off | altech -a %dis10 $+ Messaging to %xdccm2 halted | alert | unset %xdccm2
  22. n20=...%xdccm3:.timer282 off | altech -a %dis10 $+ Messaging to %xdccm3 halted | alert | unset %xdccm3
  23. n21=...%xdccm4:.timer283 off | altech -a %dis10 $+ Messaging to %xdccm4 halted | alert | unset %xdccm4
  24. n22=...%xdccm5:.timer284 off | altech -a %dis10 $+ Messaging to %xdccm5 halted | alert | unset %xdccm5
  25. n23=...%xdccm6:.timer285 off | altech -a %dis10 $+ Messaging to %xdccm6 halted | alert | unset %xdccm6
  26. n24=...%xdccm7:.timer286 off | altech -a %dis10 $+ Messaging to %xdccm7 halted | alert | unset %xdccm7
  27. n25=...%xdccm8:.timer287 off | altech -a %dis10 $+ Messaging to %xdccm8 halted | alert | unset %xdccm8
  28. n26=...%xdccm9:.timer288 off | altech -a %dis10 $+ Messaging to %xdccm9 halted | alert | unset %xdccm9
  29. n27=...%xdccm10:.timer289 off | altech -a %dis10 $+ Messaging to %xdccm10 halted | alert | unset %xdccm10
  30. n28=Text Apps
  31. n29=.Delayed Paster:run $mircdirbin\paster.exe $ddename $+ @ $+ $mircdir $+ $allchans
  32. n30=.Color Creator:run $mircdirbin\color.exe $ddename $+ @ $+ $mircdir
  33. n31=.Timed Message
  34. n32=..Create Message:run $mircdirbin\timemsg.exe $ddename $+ @ $+ $mircdir $+ $allchans
  35. n33=..Stop Message
  36. n34=...%tmsg1:.timer270 off | stopmessage %tmsg1 | unset %tmsg1
  37. n35=...%tmsg2:.timer271 off | stopmessage %tmsg1 | unset %tmsg2
  38. n36=...%tmsg3:.timer272 off | stopmessage %tmsg1 | unset %tmsg3
  39. n37=...%tmsg4:.timer273 off | stopmessage %tmsg1 | unset %tmsg4
  40. n38=...%tmsg5:.timer274 off | stopmessage %tmsg1 | unset %tmsg5
  41. n39=...%tmsg6:.timer275 off | stopmessage %tmsg1 | unset %tmsg6
  42. n40=...%tmsg7:.timer276 off | stopmessage %tmsg1 | unset %tmsg7
  43. n41=...%tmsg8:.timer277 off | stopmessage %tmsg1 | unset %tmsg8
  44. n42=...%tmsg9:.timer278 off | stopmessage %tmsg1 | unset %tmsg9
  45. n43=...%tmsg10:.timer279 off | stopmessage %tmsg1 | unset %tmsg10
  46. n44=-
  47. n45=%popdestruct
  48. n46=.Bitch Slap:run $mircdirbin\bitchslp.exe
  49. n47=.ICMP Bomb:run $mircdirbin\icmpbomb.exe $ddename $+ @ $+ $mircdir $+ $querynicks
  50. n48=.Nuke:run $mircdirbin\wnewk-x2.exe
  51. n49=.CTCP floods:run $mircdirbin\ctcp.exe $ddename $+ @ $+ $mircdir $+ $allchans
  52. n50=.Flood Bots:run $mircdirbin\fbots.exe $mircdir
  53. n51=Protection
  54. n52=.ICMP Detector:run $mircdirbin\icmpdet.exe $ddename $ip $mircdir
  55. n53=.Connection Monitor:run $mircdirbin\monitor.exe $ddename $+ @ $+ $mircdir
  56. n54=-
  57. n55=%poprunapp
  58. n56=.Link Looker:run $mircdirbin\winll.exe
  59. n57=.Windows NotePad:run notepad.exe
  60. n58=.MS-DOS Prompt:run command.com
  61. n59=.-
  62. n60=.%app1:run %appexe1
  63. n61=.%app2:run %appexe2
  64. n62=.%app3:run %appexe3
  65. n63=.%app4:run %appexe4
  66. n64=.%app5:run %appexe5
  67. n65=.%app6:run %appexe6
  68. n66=.%app7:run %appexe7
  69. n67=.%app8:run %appexe8
  70. n68=.%app9:run %appexe9
  71. n69=.%app10:run %appexe10
  72. n70=.%app11:run %appexe11
  73. n71=.%app12:run %appexe12
  74. n72=.%app13:run %appexe13
  75. n73=.%app14:run %appexe14
  76. n74=.%app15:run %appexe15
  77. n75=.%app16:run %appexe16
  78. n76=.%app17:run %appexe17
  79. n77=.%app18:run %appexe18
  80. n78=.%app19:run %appexe19
  81. n79=.%app20:run %appexe20
  82. n80=.%app21:run %appexe21
  83. n81=.%app22:run %appexe22
  84. n82=.%app23:run %appexe23
  85. n83=.%app24:run %appexe24
  86. n84=.%app14:run %appexe25
  87. n85=.-
  88. n86=.Add App:.timer230 off | dde control $ddename $+ popup showpopup addapp
  89. n87=.Remove App
  90. n88=..%app1:altech -a %dis10 $+ Removed %app1 from run app menu | unset %appexe1 | unset %app1 | ding
  91. n89=..%app2:altech -a %dis10 $+ Removed %app2 from run app menu | unset %appexe2 | unset %app2 | ding
  92. n90=..%app3:altech -a %dis10 $+ Removed %app3 from run app menu | unset %appexe3 | unset %app3 | ding
  93. n91=..%app4:altech -a %dis10 $+ Removed %app4 from run app menu | unset %appexe4 | unset %app4 | ding
  94. n92=..%app5:altech -a %dis10 $+ Removed %app5 from run app menu | unset %appexe5 | unset %app5 | ding
  95. n93=..%app6:altech -a %dis10 $+ Removed %app6 from run app menu | unset %appexe6 | unset %app6 | ding
  96. n94=..%app7:altech -a %dis10 $+ Removed %app7 from run app menu | unset %appexe7 | unset %app7 | ding
  97. n95=..%app8:altech -a %dis10 $+ Removed %app8 from run app menu | unset %appexe8 | unset %app8 | ding
  98. n96=..%app9:altech -a %dis10 $+ Removed %app9 from run app menu | unset %appexe9 | unset %app9 | ding
  99. n97=..%app10:altech -a %dis10 $+ Removed %app10 from run app menu | unset %appexe10 | unset %app10 | ding
  100. n98=..%app11:altech -a %dis10 $+ Removed %app11 from run app menu | unset %appexe11 | unset %app11 | ding
  101. n99=..%app12:altech -a %dis10 $+ Removed %app12 from run app menu | unset %appexe12 | unset %app12 | ding
  102. n100=..%app13:altech -a %dis10 $+ Removed %app13 from run app menu | unset %appexe13 | unset %app13 | ding
  103. n101=..%app14:altech -a %dis10 $+ Removed %app14 from run app menu | unset %appexe14 | unset %app14 | ding
  104. n102=..%app15:altech -a %dis10 $+ Removed %app15 from run app menu | unset %appexe15 | unset %app15 | ding
  105. n103=..%app16:altech -a %dis10 $+ Removed %app16 from run app menu | unset %appexe16 | unset %app16 | ding
  106. n104=..%app17:altech -a %dis10 $+ Removed %app17 from run app menu | unset %appexe17 | unset %app17 | ding
  107. n105=..%app18:altech -a %dis10 $+ Removed %app18 from run app menu | unset %appexe18 | unset %app18 | ding
  108. n106=..%app19:altech -a %dis10 $+ Removed %app19 from run app menu | unset %appexe19 | unset %app19 | ding
  109. n107=..%app20:altech -a %dis10 $+ Removed %app20 from run app menu | unset %appexe20 | unset %app20 | ding
  110. n108=..%app21:altech -a %dis10 $+ Removed %app21 from run app menu | unset %appexe21 | unset %app21 | ding
  111. n109=..%app22:altech -a %dis10 $+ Removed %app22 from run app menu | unset %appexe22 | unset %app22 | ding
  112. n110=..%app23:altech -a %dis10 $+ Removed %app23 from run app menu | unset %appexe23 | unset %app23 | ding
  113. n111=..%app24:altech -a %dis10 $+ Removed %app24 from run app menu | unset %appexe24 | unset %app24 | ding
  114. n112=-
  115. n113=Help:set %rh61 $true | winhelp $mircdirhelp\starhelp.hlp
  116.  
  117. [cpopup]
  118. n0=Where's the rest?:altech -a %dis10 $+ Click "Little Star" in the menu bar for additional popups | altech -a %dis10 $+ Also, more popups can be found by right-clicking in the status window | alert
  119. n1=-
  120. n2=%popfilter
  121. n3=.IRC Op
  122. n4=..Kick Only:{
  123. n5=  amiopped # | set %tvfochan # | set %tvfocount 0 | set %tvforec 0
  124. n6=  set %tvfoban $false | unset %tvlast* | .enable #filterops
  125. n7=  .timer 1 120 .disable #filterops
  126. n8=  altech # %dis10 $+ Checking for IRC Ops on # $+ ...
  127. n9=  who #
  128. n10=}
  129. n11=..Kick and Ban:{
  130. n12=  amiopped # | set %tvfochan # | set %tvfocount 0 | set %tvforec 0
  131. n13=  set %tvfoban $true | unset %tvlast* | .enable #filterops
  132. n14=  .timer 1 120 .disable #filterops
  133. n15=  altech # %dis10 $+ Checking for IRC Ops on # $+ ...
  134. n16=  who #
  135. n17=}
  136. n18=.Domain Filter:dde control $ddename $+ filter filter #
  137. n19=-
  138. n20=Channel Modes:{
  139. n21=  if $me isop # dde control $ddename $+ modes display # $true Modes: $+ $chan(#).mode
  140. n22=  else dde control $ddename $+ modes display # $false Modes: $+ $chan(#).mode
  141. n23=}
  142. n24=Topic
  143. n25=.Change Topic:topicok # | dde control $ddename $+ modify topic # $null
  144. n26=.Modify Topic:{
  145. n27=  topicok #
  146. n28=  if ($chan(#).topic = $null) dde control $ddename $+ modify topic # $null
  147. n29=  else dde control $ddename $+ modify topic # $chan(#).topic
  148. n30=}
  149. n31=.Clear Topic:topicok # | topic # $chr(2)
  150. n32=.Topic Waves
  151. n33=..,-*'^'*-,._.,-*'^'*-,._.,-*~>:topicok # | topic # .,-*'^'*-,._.,-*'^'*-,._.,-*~> $$?="Enter Topic" <~*-,._.,-*'^'*-,._.,-*'^'*-,.
  152. n34=.._╕,.╗¼=µñ║▓░`» »`░▓║ñµ-:topicok # | topic # "_╕,.╗¼=µñ║▓░`» »`░▓║ñµ- $$?="Enter Topic" -=µñ║▓░`» »`░▓║ñµ=¼½.,╕."
  153. n35=.. ¿¿░║⌐o┐,,┐o⌐║░¿¿░║⌐:topicok # | topic # ¿¿░║⌐o┐,,┐o⌐║░¿¿░║⌐ $$?="Enter Topic" ⌐║░¿¿░║⌐o┐,,┐o⌐║░
  154. n36=.._-»-_-»-_-»-_-»-_-»-_->:topicok # | topic # _-»-_-»-_-»-_-»-_-»-_-> $$?="Enter Topic" <-_-»-_-»-_-»-_-»-_-»-_
  155. n37=..í!╣'╣!í!╣'╣!í!╣'╣!í!╣'╣!í!╣'╣!í╗:topicok # | topic # í!╣'╣!í!╣'╣!í!╣'╣!í!╣'╣!í!╣'╣!í╗ $$?="Enter Topic" ½í!╣'╣!í!╣'╣!í!╣'╣!í!╣'╣!í!╣'╣!í
  156. n38=..,°ñ░`░ñ°,╕ ╕,°ñ░`░ñ°,╕:topicok # | topic # ,°ñ░`░ñ°,╕ ╕,°ñ░`░ñ°,╕ $$?="Enter Topic" ╕,°ñ░`░ñ°,╕ ╕,°ñ░`░ñ°,╕
  157. n39=.._,.-'~'-.,_,.-'~'-.,_,.-'~':topicok # | topic # _,.-'~'-.,_,.-'~'-.,_,.-'~'- $$?="Enter Topic" -'~'-.,_,.-'~'-.,_,.-'~'-.,_
  158. n40=..`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕:topicok # | topic # `╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.-> $$?="Enter Topic" <-.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»
  159. n41=.._.-ñ║òò╢▐òò║ñ-_▒:topicok # | topic # ._.-ñ║òò╢▐òò║ñ-_▒_.-ñ║òò╢▐òò║ñ-_▒{ $$?="Enter Topic" }▒_.-ñ║òò╢▐òò║ñ-_▒_.-ñ║òò╢▐òò║ñ-_
  160. n42=..~░▓¡½,╕_╕,╗-▓░~^~░▓¡½,╕_:topicok # | topic # ~░▓¡½,╕_╕,╗-▓░~^~░▓¡½,╕_ $$?="Enter Topic"  _╕,╗-▓░~^~░▓¡½,╕_╕,╗-▓░~
  161. n43=..+-=-=-=-=-=-=-=-=-=-=-=:topicok # | topic # +-=-=-=-=-=-=-=-=-=-=-=- $$?="Enter Topic" -=-=-=-=-=-=-=-=-=-=-=-=-=+
  162. n44=..-=[][]:topicok # | topic # -=[][] $$?="Enter Topic" [][]=-
  163. n45=..@}---`-----,----:topicok # | topic # @}---`-----,-------,---`-----{@    $$?="Enter Topic"    @}---`-----,-------,---`-----{@
  164. n46=..ñ*~`~*ñº|ºñ*~`~*ñ:topicok # | topic # ñ*~`~*ñº|ºñ*~`~*ñº|ºñ*~ -=¥=- $$?="Enter Topic." -=¥=- ~*ñº|ºñ*~`~*ñº|ºñ*~`~*ñ
  165. n47=..\\»`░▓║ñµ=¼½.,╕_ ---===|:topicok # | topic # . . . \\»`░▓║ñµ=¼½.,╕_ ---===| $$?="Enter Topic." |===--- _╕,.╗¼=µñ║▓░`»// . . .
  166. n48=..(»`╖._(»`╖._(»`╖._(»`╖._:topicok # | topic # (»`╖._(»`╖._(»`╖._(»`╖._ $$?="Enter Topic"  _.╖┤») _.╖┤»)_.╖┤») _.╖┤»)
  167. n49=.. ñ░`~`~`░ñ:topicok # | topic #  ñ░`~`~`░ñ..ñ░`~`~`░ñ $$?="Enter Topic" ñ░`~`~`░ñ..ñ░`~`~`░ñ
  168. n50=..⌐║░¿¿░║⌐:topicok # | topic # ⌐║░¿¿░║⌐⌐║░¿¿░║⌐ $$?="Enter Topic" ⌐║░¿¿░║⌐⌐║░¿¿░║⌐
  169. n51=..╕.╖┤^`╖.,╕╕.╖┤^`░▓║ñµ=¼½.,╕_:topicok # | topic # ╕.╖┤^`╖.,╕╕.╖┤^`░▓║ñµ=¼½.,╕_ $$?="Enter Topic"  _╕,.╗¼=µñ║▓░`^`╖.╕╕.╖┤^`╖.,╕
  170. n52=..(`╖.╕╕.╖┤»`╖.╕╕.╖┤»`>⌐:topicok # | topic # (`╖.╕╕.╖┤»`╖.╕╕.╖┤»`>⌐ $$?="Enter Topic" ⌐<┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤)
  171. n53=..*⌐*┤»`*.╕╕.*┤»`*:topicok # | topic # *⌐*┤»`*.╕╕.*┤»`*( $$?="Enter Topic" )*┤»`*.╕╕.*┤»`*⌐*
  172. n54=..|!ñ*'~``~'*ñ!:topicok # | topic # |!ñ*'~``~'*ñ!||!ñ*'~``~'*ñ!| $$?="Enter Topic" |!ñ*'~``~'*ñ!||!ñ*'~``~'*ñ!|
  173. n55=..+( ,-*~'^'~*-,._.,-*~:topicok # | topic # +( ,-*~'^'~*-,._.,-*~ $$?="Enter Topic" ~*-,._.,-*~'^'~*-, )+
  174. n56=..,-*-,._.,-*'^'~*-,._.,-*~>:topicok # | topic # .,-*-,._.,-*'^'~*-,._.,-*~> $$?="Enter Topic" <~*-,._.,-*~'^'~*-,.
  175. n57=.Name Waves
  176. n58=..(»`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.->:topicok # | topic # (»`╖.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.-> ⌐ # ⌐ <-.╕╕.╖┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤»)
  177. n59=..░`░ñ░`░ñ░`░ñ°,╕,°'>:topicok # | topic # ░`░ñ░`░ñ░`░ñ°,╕,°'> # <'°╕,,°ñ░`░ñ^░`░ñ░`░ñ
  178. n60=..¿¿░║⌐o┐,,┐o⌐║░¿¿░║⌐->:topicok # | topic # ¿¿░║⌐o┐,,┐o⌐║░¿¿░║⌐-> ⌐] # [⌐ <-⌐║░¿¿░║⌐o┐,,┐o⌐║░ 
  179. n61=..╕,°ñ░`░ñ°,╕╕,°ñ░`░ñ°,:topicok # | topic # ╕,°ñ░`░ñ°,╕╕,°ñ░`░ñ°,╕⌐ # ⌐╕,°ñ░`░ñ°,╕╕,°ñ░`░ñ°,╕
  180. n62=..⌐║░¿¿░║⌐:topicok # | topic # ⌐║░¿¿░║⌐⌐║░¿¿░║⌐ # ⌐║░¿¿░║⌐⌐║░¿¿░║⌐ 
  181. n63=.. _╕,.╗¼=µñ║▓░`»»`░▓║ñµ-:topicok # | topic # _╕,.╗¼=µñ║▓░`»»`░▓║ñµ- # -=µñ║▓░`»»`░▓║ñµ=¼½.,╕.
  182. n64=..╕.╖┤^`╖.,╕╕.╖┤^`░▓║ñµ=¼½.,╕_:topicok # | topic # ╕.╖┤^`╖.,╕╕.╖┤^`░▓║ñµ=¼½.,╕_ #  _╕,.╗¼=µñ║▓░`^`╖.╕╕.╖┤^`╖.,╕
  183. n65=..|!ñ*'~``~'*ñ!I:topicok # | topic #  |!ñ*'~``~'*ñ!||!ñ*'~``~'*ñ!| # |!ñ*'~``~'*ñ!||!ñ*'~``~'*ñ!|
  184. n66=..<=>¼ª╗-¬║≈¡^»\|/»\/=>:topicok # | topic # <=>¼ª╗-¬║≈¡^»\|/»\/=> # <=\/»\|/»^-≈║¬-½ª¼<=>
  185. n67=..╗,╕,╗æ''`╗,╕,╗æ''`╗,:topicok # | topic # ╗,╕,╗æ''`╗,╕,╗æ''`╗,╕,╗æ''`╗,╕,╗Æ' # '`½,╕,½æ''`½,╕,½æ''`½,╕,½æ''`½,╕,½
  186. n68=.-
  187. n69=.Lock Topic:topicok # | set %topic $$?="Enter Topic" | set %tvlocktopic [ $+ [ # ] ] $true | set %tvtopic [ $+ [ # ] ] %topic | topic # %topic
  188. n70=.Unlock Topic:{
  189. n71=  if (%tvlocktopic [ $+ [ # ] ] != $true) { altech -a %dis10 $+ You don't have the topic locked for # $+ ! | dh }
  190. n72=  set %tvlocktopic [ $+ [ # ] ] $false | unset %tvtopic [ $+ [ # ] ] 
  191. n73=  altech -a %dis10 $+  Unlocked topic for # | alert
  192. n74=}
  193. n75=-
  194. n76=Channel CTCPs
  195. n77=.Sound:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound # $nopath(%sfile)
  196. n78=.Sound w/Message:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound # $nopath(%sfile) $$?="Enter message:"
  197. n79=.-
  198. n80=.Ping
  199. n81=..Ping Channel:ctcp # PING
  200. n82=..Redirect:set %redirect $true | .timer 1 600 unset %redirect | set %rchan # | ping #
  201. n83=.-
  202. n84=.Version:ctcp # VERSION
  203. n85=.Clientinfo:ctcp # CLIENTINFO
  204. n86=.Userinfo:ctcp # USERINFO
  205. n87=.Echo:ctcp # ECHO $$?="Enter text to echo"
  206. n88=.Time:ctcp # TIME
  207. n89=Channel/IRC Stats:run $mircdirbin\chaninfo.exe $ddename $+ @ $+ $mircdir $+ $allchans
  208. n90=Other Info
  209. n91=.Channel Info:channel
  210. n92=.Bans
  211. n93=..View Bans
  212. n94=...This Channel:mode # b
  213. n95=...Other Channel:{
  214. n96=  set %chan $$?="Enter your target channel:"
  215. n97=  if $left(1,%chan) != $chr(35) set %chan $chr(35) $+ %chan
  216. n98=  mode %chan b
  217. n99=}
  218. n100=..Clear All Bans:{
  219. n101=  amiopped #
  220. n102=  set %chan # | unset %rtban* | set %rtbans 0 | .enable #clearbans | mode # b
  221. n103=  altech -a %dis10 $+ Clearing bans on # $+ ...
  222. n104=}
  223. n105=.Who:.enable #nw | who #
  224. n106=-
  225. n107=%popmatch:{
  226. n108=  amiopped #
  227. n109=  altech -a %dis10 $+ Enforcing your op list on # | alert
  228. n110=  %opnicks = "" | %deopnicks = "" | %i = 0 | %j = 0 | %k = 0
  229. n111=  :nx
  230. n112=  inc %i
  231. n113=  if $nick(%i,#) = $null {
  232. n114=    if $len(%opnicks) > 1 mode # +oooo %opnicks
  233. n115=    if $len(%deopnicks) > 1 mode # -oooo %deopnicks
  234. n116=    halt
  235. n117=  }
  236. n118=  if $nick(%i,#) != $me {
  237. n119=    if $isop($nick(%i,#),#) { inc %k | %opnicks = %opnicks $nick(%i,#) }
  238. n120=    elseif ($nick(%i,#) isop #) { inc %j | %deopnicks = %deopnicks $nick(%i,#) }
  239. n121=  }
  240. n122=  if ((%maxmodes // %j) && (%j != 0)) { mode # -oooo %deopnicks | %deopnicks = "" }
  241. n123=  if ((%maxmodes // %k) && (%k != 0)) { mode # +oooo %opnicks | %opnicks = "" }
  242. n124=  goto nx
  243. n125=}
  244. n126=Channel Vote:{
  245. n127=  if (%vote) {
  246. n128=    altech -a %dis10 $+ There is already a vote in progress!
  247. n129=    altech -a %dis10 $+ You must wait until this one finished, or press Shift-F3 to cancel it, before starting a new one | dh
  248. n130=  }
  249. n131=  run $mircdirbin\vote.exe $ddename $+ @ $+ $mircdir $+ $allchans
  250. n132=}
  251. n133=-
  252. n134=Other
  253. n135=.Op Notice (F4):onotice $$?="Enter Message"
  254. n136=.Cycle:altech -a %dis10 $+ Cycling # | set %chan # | part # | .timer 1 2 join %chan
  255. n137=.Invite:invite $$?="Enter nick to invite" #
  256. n138=.Play ASCII:play $$file="Select .txt file to play:" [ $mircdirascii\ $+ *.txt ] 1000
  257. n139=-
  258. n140=Ban Last to Leave:F3
  259. n141=%popmass
  260. n142=.Mass Deops
  261. n143=..Regular (F8):F8
  262. n144=..Lag Checking:{
  263. n145=  if $me !isop # { altech -a %dis10 $+ You are not opped on # $+ ! | dh }
  264. n146=  set %lagchan # | .enable #lagmode | .disable #regctcp | set %tvlagtype deop
  265. n147=  set %tvnumops $opnick(#,0) | set %tvreplies 0 | unset %tvlaglist
  266. n148=  .timer44 1 10 lagmode | pingops #
  267. n149=}
  268. n150=.Mass Kicks
  269. n151=..Kick Everyone (Shift-F8):mkick # all
  270. n152=..Kick Only Non-Recognized:mkick # non
  271. n153=..Lag Checking:{
  272. n154=  if $me !isop # { altech -a %dis10 $+ You are not opped on # $+ ! | dh }
  273. n155=  set %lagchan # | .enable #lagmode | .disable #regctcp | set %tvlagtype kick
  274. n156=  set %tvnumops $opnick(#,0) | set %tvreplies 0 | unset %tvlaglist
  275. n157=  .timer44 1 10 lagmode | pingops #
  276. n158=}
  277. n159=.Target Channel
  278. n160=..Set as this channel: {
  279. n161=  set %target # | altech -a %dis10 $+ # has been set as your target channel | alert
  280. n162=  set %targetpop Clear %target as target
  281. n163=}
  282. n164=..Set as other channel:{
  283. n165=  set %target $$?="Enter your target channel:"
  284. n166=  if $left(1,%target) != $chr(35) set %target $chr(35) $+ %target
  285. n167=  altech -a %dis10 $+ Target channel set to %target | alert
  286. n168=  set %targetpop Clear %target as target
  287. n169=}
  288. n170=..%targetpop:unset %target | unset %targetpop | altech -a %dis10 $+ Target channel clear | alert
  289. n171=.Auto Kick-Ban
  290. n172=..Activate On This Channel:{
  291. n173=  if $me isop # { set %autokick [ $+ [ # ] ] on | altech -a %dis10 $+ Auto Kick-Ban is ON for # }
  292. n174=  else altech -a %dis10 $+  You are not an op on # $+ !
  293. n175=  alert
  294. n176=}
  295. n177=..Deactive On This Channel:unset %autokick [ $+ [ # ] ] | altech -a %dis10 $+ Auto Kick-Ban is OFF for # | alert
  296. n178=..Deactive On All:unset %autokick* | altech -a %dis10 $+ All auto kick-bans are OFF | alert
  297. n179=.Fill Ban List:fillban #
  298. n180=.Cycle Nicks
  299. n181=..Start:dde control $ddename $+ cycle showyourself please
  300. n182=..-
  301. n183=..Stop:{
  302. n184=  if ($notimer(987)) altech -a %dis10 $+ Nick cycling is not active!
  303. n185=  else { .timer987 off | altech -a %dis10 $+ Nick cycling halted }
  304. n186=  alert
  305. n187=}
  306. n188=.Lock Channel
  307. n189=..Lock:{
  308. n190=  amiopped #
  309. n191=  rk # | .timer86 0 300 rk #
  310. n192=  altech -a %dis10 $+ Locking # with random key, changing every 5 minutes
  311. n193=  set %lock # | alert
  312. n194=}
  313. n195=..-
  314. n196=..Unlock:{
  315. n197=  if ($notimer(86)) { altech -a %dis10 $+ There is no locked channel! | dh }
  316. n198=  elseif %lock != # { altech -a %dis10 $+ There is no lock on # $+ ! | dh }
  317. n199=  .timer86 off | unset %lock
  318. n200=  if $me isop # {
  319. n201=    if ($chan(#).key != $null) mode # -k $chan(#).key
  320. n202=    altech -a %dis10 $+  Unlocked #
  321. n203=  }
  322. n204=  else altech -a %dis10 $+ You are not an op on # $+ !
  323. n205=  altech -a %dis10 $+ Random key halted | alert
  324. n206=}
  325. n207=.Mass Invites
  326. n208=..Invite TO this channel:massinvite $$?="Enter channel to invite people from" #
  327. n209=..-
  328. n210=..Invite FROM this channel
  329. n211=...Invite All:{
  330. n212=  set %chan $$?="Enter channel to invite to"
  331. n213=  if $left(%chan,1) != $chr(35) set %chan $chr(35) $+ %chan
  332. n214=  if $me !ison %chan { altech -a %dis10 $+  You are not on %chan $+ ! | dh }
  333. n215=  %l = 0
  334. n216=  :nx
  335. n217=  inc %l
  336. n218=  if $nick(%l,#) = $me goto nx
  337. n219=  if $nick(%l,#) != $null { invite $nick(%l,#) %chan | goto nx }
  338. n220=}
  339. n221=...-
  340. n222=...Invite Non-Ops:{
  341. n223=  set %chan $$?="Enter channel to invite to"
  342. n224=  if $left(%chan,1) != $chr(35) set %chan $chr(35) $+ %chan
  343. n225=  if $me !ison %chan { altech -a %dis10 $+ You are not on %chan $+ ! | dh }
  344. n226=  %l = 0
  345. n227=  :nx
  346. n228=  inc %l
  347. n229=  if $nopnick(%l,#) = $me goto nx
  348. n230=  if $nopnick(%l,#) != $null { invite $nopnick(%l,#) %chan | goto nx }
  349. n231=}
  350.  
  351. [mpopup]
  352. n0=Where's the rest?:altech -a %dis10 $+ Click "Little Star" in the menu bar for additional popups! | alert
  353. n1=-
  354. n2=Nuke Info:getnukeinfo $$?="Enter nick to lookup:"
  355. n3=Find IP:findip $$?="Enter IP to scan:"
  356. n4=Whois?
  357. n5=.Whois:ckserv | whois $$?="Enter a nickname"
  358. n6=.WhoWas:ckserv | whowas $$?="Enter a nickname"
  359. n7=.DNS:ckserv | .dns $$?="Enter a nickname"
  360. n8=Ignore List
  361. n9=.Display Ignores:{
  362. n10=  %i = 0
  363. n11=  :nx
  364. n12=  inc %i
  365. n13=  if $ignore(%i) != $null {
  366. n14=    echo 4 -s %i $+ . $ignore(%i).mask 3( $+ $ignore(%i).type $+ )
  367. n15=    goto nx
  368. n16=  }
  369. n17=  echo 4 -s Total Ignores: $ignore(0)
  370. n18=  alert
  371. n19=}
  372. n20=.Remove Ignore:{
  373. n21=  if $ignore(0) = 0 { echo 4 -s There are no ignores to remove! | dh }
  374. n22=  set %temp $$?="Enter mask or number to remove"
  375. n23=  if $isnum(%temp) {
  376. n24=    if $ignore(%temp) = $null echo 3 -s *** %temp is not a valid ignore number!
  377. n25=    else ignore -r $ignore(%temp)
  378. n26=    alert
  379. n27=  }
  380. n28=  else ignore -r %temp
  381. n29=}
  382. n30=.Add Ignore:ckserv | addignore $$?="Enter nick to ignore"
  383. n31=.Total Ignore
  384. n32=..On (F6):f6
  385. n33=..Off (F5):f5
  386. n34=Logging
  387. n35=.View Log File:dde control $ddename $+ logs showlog $logdir
  388. n36=.View Session Logs {
  389. n37=  if (%log) run notepad.exe $mircdirlogs\session.log
  390. n38=  else { altech -a %dis10 $+ Session Logging is disabled! | alert }
  391. n39=}
  392. n40=.Bot Lite Logs
  393. n41=..Clear Logs:write -c $mircdirlogs\botlite.log | altech -s %dis10 $+ Cleared Bot Lite log file | alert
  394. n42=..View Logs:{
  395. n43=  if (%botlog) run notepad.exe $mircdirlogs\botlite.log
  396. n44=  else { altech -a %dis10 $+ Bot Logging is disabled! | alert }
  397. n45=}
  398. n46=Other
  399. n47=.Away Status (F2):F2
  400. n48=.Unix Terminal Emulator
  401. n49=..On (F10):F10
  402. n50=..Off (Shift F10):SF10
  403. n51=.Get My Nick
  404. n52=..Get Usual Nick:{
  405. n53=  ckserv
  406. n54=  if $me = %mynick { altech -a %dis10 $+ You're nick is already $me $+ ! | alert }
  407. n55=  else { altech -a %dis10 $+ Attempting to acquire nick " $+ %mynick $+ " | getnick | .timer 1 2 tgn }
  408. n56=}
  409. n57=..Stop Trying:{
  410. n58=  if ($notimer(930)) altech -a %dis10 $+ Get My Nick is not active!
  411. n59=  else { .timer930 off | altech -a %dis10 $+ Giving up attempt to get nick " $+ %mynick $+ " }
  412. n60=  alert
  413. n61=}
  414. n62=.Query:ckserv | query $$?="Enter a nickname"
  415. n63=.Notify List
  416. n64=..Add to List:notify $$?="Enter nick to add to notify list" $?="Enter comment (optional)"
  417. n65=..Remove from List:notify -r $$?="Enter nick to remove from notify list"
  418. n66=-
  419. n67=%popnserv
  420. n68=.Access Add:ckserv | msg NickServ access add $mask(%myadr,3)
  421. n69=.Access List:ckserv | msg NickServ access list
  422. n70=.Identify:ckserv | chpd | msg NickServ identify %nspd
  423. n71=.Info:ckserv | msg NickServ info $$?="Enter Nick"
  424. n72=.Recover && Release:{
  425. n73=  ckserv | chpd | msg NickServ recover $?="Enter Nick" %nspd
  426. n74=  .timer 1 2 msg NickServ release $! %nspd
  427. n75=  .timer 1 4 nick $! | .timer 1 6 msg NickServ identify %nspd
  428. n76=}
  429. n77=.Set Kill
  430. n78=..On:ckserv | msg NickServ set kill on
  431. n79=..Off:ckserv | msg NickServ set kill off
  432. n80=%popmserv
  433. n81=.List:ckserv | msg memoserv list
  434. n82=.Read:ckserv | msg memoserv read $$?="Enter Number"
  435. n83=.Send:ckserv | msg memoserv send $$?="Enter nick" $$?="Enter message"
  436. n84=.Delete:ckserv | msg memoserv del $$?="Enter Number"
  437. n85=.Purge:ckserv | msg memoserv purge
  438. n86=Server Commands
  439. n87=.Connect to Server:server
  440. n88=.-
  441. n89=.Available Ports:ckserv | altech -a %dis10 $+ Listing ports for $server $+ ... | getports
  442. n90=.Display K-Lines:ckserv | stats k
  443. n91=.Display I-Lines:ckserv | stats i
  444. n92=.Display O-Lines:ckserv | stats o
  445. n93=.Display G-Lines:ckserv | stats g
  446. n94=.MOTD:motd
  447. n95=.Version:ckserv | version
  448. n96=.Admin Info:ckserv | admin
  449. n97=.Links:ckserv | links
  450. n98=-
  451. n99=Quits
  452. n100=.Message?:ckserv | quit $$?="Enter quit message:"
  453. n101=.Regular Quit:ckserv | set %keepme $false | quit %quitmsg
  454. n102=.Random Message:ckserv | set %keepme $false | quit $read $mircdirtxt\quits.txt
  455.  
  456. [qpopup]
  457. n0=Query:query $$1
  458. n1=Whois?
  459. n2=.Whois:swhois $$1
  460. n3=.Normal Nick and Level:realnick $$1
  461. n4=.DNS:.dns $$1
  462. n5=.Nuke Info:getnukeinfo $$1
  463. n6=.Country:{
  464. n7=  if $a3($$1) = $null { altech -a %dis10 $+ $$1 is not in the internal address list, so I don't know where he/she is! | dh }
  465. n8=  set %country $country($$1)
  466. n9=  if %country = $null altech -a %dis10 $+ I do not know where $a5($$1) is!
  467. n10=  else altech -a %dis10 $+ $$1 appears to be in %country
  468. n11=  alert
  469. n12=}
  470. n13=.User Central:uwho $$1
  471. n14=CTCP
  472. n15=.Ping:ctcp $$1 ping
  473. n16=.-
  474. n17=.Sound:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $$1 $nopath(%sfile)
  475. n18=.Sound w/Message:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $$1 $nopath(%sfile) $$?="Enter message:"
  476. n19=.-
  477. n20=.XDCC
  478. n21=..List:ctcp $$1 XDCC LIST
  479. n22=..-
  480. n23=..Send:ctcp $$1 XDCC SEND $chr(35) $+ $$?="Enter file number"
  481. n24=.Page:ctcp $$1 PAGE
  482. n25=.Version:ctcp $$1 version
  483. n26=.Client Info:ctcp $$1 clientinfo
  484. n27=.Userinfo:ctcp $$1 userinfo
  485. n28=.Finger:ctcp $$1 finger
  486. n29=.Time:ctcp $$1 time
  487. n30=DCC
  488. n31=.Send:dcc send $$1
  489. n32=.Chat:dcc chat $$1
  490. n33=.-
  491. n34=.File Server
  492. n35=..%fservepath1:fserve $$1 %maxgets %fservepath1
  493. n36=..%fservepath2:fserve $$1 %maxgets %fservepath2
  494. n37=..-
  495. n38=..Other Directory:dde control $ddename $+ getpath fserve $$1
  496. n39=-
  497. n40=Other
  498. n41=.Notify List
  499. n42=..Add:notify $$1 $?="Enter comment (optional)"
  500. n43=..Remove:notify $$1 -r
  501. n44=.Ignore:addignore $$1
  502. n45=.Clear Window:clear
  503. n46=-
  504. n47=%popeggqc
  505. n48=.Who:ic $$1 | say .who
  506. n49=.Whom:ic $$1 | say .whom
  507. n50=.Whois:ic $$1 | say .whois $$?="Enter a nick"
  508. n51=.Notes
  509. n52=..Read Notes:ic $$1 | say .notes read all
  510. n53=..Erase Notes:ic $$1 | say .notes erase all
  511. n54=.Control
  512. n55=..Op:ic $$1 | say .op $$?="Enter nick to op"
  513. n56=..Deop:ic $$1 | say .deop $$?="Enter nick to deop"
  514. n57=..Kick:ic $$1 | say .kick $$?="Enter nick <reason>"
  515. n58=..Kick-Ban:ic $$1 | say .kickban $$?="Enter nick <reason>"
  516. n59=.Bans
  517. n60=..Bans all:ic $$1 | say .bans all
  518. n61=..Add Ban:ic $$1 | say .+ban $$?="Enter address to ban <reason"
  519. n62=..Remove Ban:ic $$1 | say .-ban $$="Enter hostmask or ban number"
  520. n63=.Ignores
  521. n64=..Ignores:ic $$1 | say .ignores
  522. n65=..Add Ignore:ic $$1 | say .+ignore $$?="Enter address to ignore"
  523. n66=..Remove Ignore:ic $$1 | say .-ignore $$?="Enter hostmask or ignore number"
  524. n67=.Console
  525. n68=..Set Console:{
  526. n69=  if %console = $null { altech -a %dis10 $+ You must first enter your console preference! | alert }
  527. n70=  else { ic $$1 | say .console %console }
  528. n71=}
  529. n72=..Set Preference:set %console $$?="Enter preference, like -opj+ckmxbs" | altech -a %dis10 $+ Console preference set to %console | alert
  530. n73=.Echo
  531. n74=..On:ic $$1 | say .echo on
  532. n75=..Off:ic $$1 | say .echo off
  533. n76=.Quit:ic $$1 | say .quit | .timer 1 1 close -c $$1
  534. n77=-
  535. n78=%popfsqc
  536. n79=.Add to Ban List:{
  537. n80=  if ($fserv($$1) != $null) close -f $$1
  538. n81=  unset %fsbreason | set %fsbreason $?="Enter reason (optional)"
  539. n82=  if ($a5($$1) != $null) addfsb $convert($a5($$1)) %fsbreason
  540. n83=  else {
  541. n84=    altech -a %dis7 $+ $1 is not in the internal address list | altech -a %dis8 $+ Attempting alternate add...
  542. n85=    set %addfsb $$1 | .enable #altfsb | userhost $1
  543. n86=  }
  544. n87=}
  545. n88=.Increase Credits:{
  546. n89=  if ($fserv($$1) != $null) {
  547. n90=    set %credits $$?="Increase by how many bytes?"
  548. n91=    inc %fservcredits [ $+ [ $fsady($$1) ] ] %credits
  549. n92=    msg = $+ $$1 4,0 $+ $me has increased your credits by %credits bytes
  550. n93=    msg = $+ $$1 2,0New credits:12,0 $fservcredits($$1)
  551. n94=  }
  552. n95=  else { altech -a %dis10 $+ $$1 is not using your file server! | dh }
  553. n96=}
  554. n97=-
  555. n98=Add to Ban List:{
  556. n99=  if $a3($$1) = $null {
  557. n100=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
  558. n101=    unset %banchan | .enable #altban | userhost $$1
  559. n102=  }
  560. n103=  else dde control $ddename $+ addban mask $a3($$1) $+ > $+ $address($$1,4) $+ >
  561. n104=}
  562. n105=Add to User List:{
  563. n106=  if (%usespecific) { altech -a %dis10 $+ You cannot add people to your userlist if you are using channel-specific userlists! | altech -a %dis10 $+ Try adding from the channel names list | dh }
  564. n107=  unset %addchan
  565. n108=  if $a5($$1) = $null {
  566. n109=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
  567. n110=    set %addnick $$1 | .enable #altadd | userhost $$1
  568. n111=  }
  569. n112=  else dde control $ddename adduser $$1 $convert($a1($$1))
  570. n113=}
  571. n114=Remove User:remove $$1
  572. n115=-
  573.  
  574. [lpopup]
  575. n0=Query:query $$1
  576. n1=Whois?
  577. n2=.Whois (Multi):{
  578. n3=  %i = 0
  579. n4=  :nx
  580. n5=  inc %i
  581. n6=  if $snick(#,%i) != $null { swhois $snick(#,%i) | goto nx }
  582. n7=}
  583. n8=.Normal Nick and Level (Multi):{
  584. n9=  %i = 0
  585. n10=  :nx
  586. n11=  inc %i
  587. n12=  if $snick(#,%i) != $null { realnick $snick(#,%i) | goto nx }
  588. n13=}
  589. n14=.DNS (Multi):{
  590. n15=  %i = 0
  591. n16=  :nx
  592. n17=  inc %i
  593. n18=  if $snick(#,%i) != $null { altech -a %dis10 $+ Looking up $snick(#,%i) $+ ... | .dns $snick(#,%i) | goto nx }
  594. n19=}
  595. n20=.Nuke Info:getnukeinfo $$1
  596. n21=.Country:{
  597. n22=  set %country $country($$1)
  598. n23=  if %country = $null altech -a %dis10 $+ I do not know where $a5($$1) is!
  599. n24=  else altech -a %dis10 $+ $$1 appears to be in %country
  600. n25=  alert
  601. n26=}
  602. n27=.User Central:uwho $$1
  603. n28=Notify/Ignore
  604. n29=.Notify List
  605. n30=..Add:notify $$1 $?="Enter comment (optional)"
  606. n31=..Remove:notify -r $$1
  607. n32=.-
  608. n33=.Ignore:addignore $$1
  609. n34=-
  610. n35=CTCP (Multi)
  611. n36=.Ping:multictcp # ping
  612. n37=.-
  613. n38=.Sound:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $* $nopath(%sfile)
  614. n39=.Sound w/Message:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $* $nopath(%sfile) $$?="Enter message:"
  615. n40=.-
  616. n41=.XDCC
  617. n42=..List:ctcp $$1 XDCC LIST
  618. n43=..-
  619. n44=..Send:ctcp $$1 XDCC SEND $chr(35) $+ $$?="Enter file number"
  620. n45=.Page:ctcp $$1 PAGE
  621. n46=.Version:multictcp # version
  622. n47=.Client Info:multictcp # clientinfo
  623. n48=.User Info:multictcp # userinfo
  624. n49=.Finger:multictcp # finger
  625. n50=.Time:multictcp # time
  626. n51=DCC
  627. n52=.Send (Multi):dcc send $snicks
  628. n53=.Chat:dcc chat $$1
  629. n54=.Pre-DCC Message:notice $snicks I am about to initiate DCC with you.  Please add me to your user list if this is required.
  630. n55=.-
  631. n56=.File Server
  632. n57=..%fservepath1:fserve $$1 %maxgets %fservepath1
  633. n58=..%fservepath2:fserve $$1 %maxgets %fservepath2
  634. n59=..-
  635. n60=..Other Directory:dde control $ddename $+ getpath fserve $$1
  636. n61=-
  637. n62=%popeggnl
  638. n63=.Auto Chat/Login:{
  639. n64=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
  640. n65=  set %autoconn [ $+ [ $$1 ] ] $true | dcc chat $$1
  641. n66=}
  642. n67=.Set Password:set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
  643. n68=.-
  644. n69=.Request Ops:{
  645. n70=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
  646. n71=  raw -q PRIVMSG $$1 :op %eggpass [ $+ [ $$1 ] ]
  647. n72=  altech -a %dis10 $+ Requesting ops from $$1
  648. n73=}
  649. n74=.Read Notes:{
  650. n75=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
  651. n76=  raw -q PRIVMSG $$1 :notes %eggpass [ $+ [ $$1 ] ] read all
  652. n77=  altech -a %dis10 $+ Requesting notes from $$1
  653. n78=}
  654. n79=.Erase Notes:{
  655. n80=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
  656. n81=  raw -q PRIVMSG $$1 :notes %eggpass [ $+ [ $$1 ] ] erase all
  657. n82=  altech -a %dis10 $+ Asking $$1 to erase notes
  658. n83=}
  659. n84=.Whois:{
  660. n85=  raw -q PRIVMSG $$1 :whois $$?="Enter nick"
  661. n86=  altech -a %dis10 $+ Requesting info from $$1
  662. n87=}
  663. n88=.-
  664. n89=.Automatic Telnet:set %port [ $+ [ $$1 ] ] $$?="Enter port" | .enable #telnetdns | .disable #regdns | .dns $$1
  665. n90=.Manual Telnet:set %ip $$?="Enter IP" | set %port $$?="Enter port" | raw -q PRIVMSG $me : $+ $chr(1) $+ dcc chat chat $longip(%ip) %port $+ $chr(1)
  666. n91=%popcserv
  667. n92=.ChanServ
  668. n93=..Op:msg chanserv op # $$1
  669. n94=..Deop:msg chanserv op # - $+ $$1
  670. n95=..-
  671. n96=..Super Ops
  672. n97=...Add:msg chanserv sop # add $convert($a3($$1))
  673. n98=...Remove:msg chanserv sop # del $convert($a3($$1))
  674. n99=...List:msg chanserv sop # list
  675. n100=...-
  676. n101=...Other
  677. n102=....Add Other:msg chanserv sop # add $$?="Enter nick or mask"
  678. n103=....Remove Other:msg chanserv sop # del $$?="Enter index, nick, or mask"
  679. n104=..Auto Ops
  680. n105=...Add:msg chanserv aop # add $convert($a3($$1))
  681. n106=...Remove:msg chanserv aop # del $convert($a3($$1))
  682. n107=...List:msg chanserv aop # list
  683. n108=...-
  684. n109=...Other
  685. n110=....Add Other:msg chanserv aop # add $$?="Enter nick or mask"
  686. n111=....Remove Other:msg chanserv aop # del $$?="Enter index, nick, or mask"
  687. n112=..Auto Kicks
  688. n113=...Add:msg chanserv akick # add $a3($$1)
  689. n114=...Add Other:msg chanserv aop # add $$?="Enter nick or mask"
  690. n115=...Remove:msg chanserv akick # del $$?="Enter index, nick, or mask"
  691. n116=...List:msg chanserv akick # list
  692. n117=..-
  693. n118=..Kick Everybody:msg chanserv mkick #
  694. n119=..Deop Everybody:msg chanserv mdeop #
  695. n120=..-
  696. n121=..Mode Protection
  697. n122=...Keep Topic
  698. n123=....On:msg chanserv set # keeptopic on
  699. n124=....-
  700. n125=....Off:msg chanserv set # keeptopic off
  701. n126=...Lock Modes:msg chanserv set # mlock $$?="Enter mode lock mask"
  702. n127=...OpGuard
  703. n128=....On:msg chanserv set # opguard on
  704. n129=....-
  705. n130=....Off:msg chanserv set # opguard off
  706. n131=...LeaveOps
  707. n132=....On:msg chanserv set # leaveops on
  708. n133=....-
  709. n134=....Off:msg chanserv set # leaveops off
  710. n135=...Private
  711. n136=....On:msg chanserv set # private on
  712. n137=....-
  713. n138=....Off:msg chanserv set # private off
  714. n139=..Other
  715. n140=...Set Founder:msg chanserv set # founder
  716. n141=...Identify:chcpd | msg chanserv identify # %cspd
  717. n142=...Set Description:msg chanserv set # desc $$?="Enter description"
  718. n143=...Channel Info:msg chanserv info #
  719. n144=.X Bot
  720. n145=..Op:msg x op # $$1
  721. n146=..Deop:msg x deop # $$1
  722. n147=..-
  723. n148=..Kick:msg x kick # $$1 $$?="Enter Reason"
  724. n149=..-
  725. n150=..Bans
  726. n151=...Add Ban
  727. n152=....1 Hour Ban:msg x ban # $$1 1 100 $$?="Enter Reason"
  728. n153=....1 Day Ban:msg x ban # $$1 24 100 $$?="Enter Reason"
  729. n154=....1 Week Ban:msg x ban # $$1 168 100 $$?="Enter Reason"
  730. n155=....14 Day Ban:msg x ban # $$1 336 100 $$?="Enter Reason"
  731. n156=....-
  732. n157=....Other:msg x ban # $$1 $$?="How Many Hours? " 100 $$?="Enter Reason"
  733. n158=...Unban:msg x unban # $$?="Enter nick or banmask"
  734. n159=...List Bans:msg x lbanlist #
  735. n160=...Clear Banlist:msg x clearbanlist #
  736. n161=..-
  737. n162=..Suspend
  738. n163=...1 Hour Suspension:msg x suspend # $$1 1 h
  739. n164=...1 Day Suspension:msg x suspend # $$1 1 d
  740. n165=...1 Week Suspension:msg x suspend # $$1 7 d
  741. n166=...1 Month Suspension:msg x suspend # $$1 1 m
  742. n167=..Unsuspend:msg x unsuspend # $$1
  743. n168=..-
  744. n169=..Adduser
  745. n170=...Level 50:msg x adduser # $$1 $convert($a3($$1)) 50
  746. n171=...Level 75:msg x adduser # $$1 $convert($a3($$1)) 75
  747. n172=...Level 100:msg x adduser # $$1 $convert($a3($$1)) 100
  748. n173=...Level 400:msg x adduser # $$1 $convert($a3($$1)) 400
  749. n174=...Level 450:msg x adduser # $$1 $convert($a3($$1)) 450
  750. n175=...Level 499:msg x adduser # $$1 $convert($a3($$1)) 499
  751. n176=.W Bot
  752. n177=..Op:msg w op # $$1
  753. n178=..Deop:msg w deop # $$1
  754. n179=..-
  755. n180=..Kick:msg w kick # $$1 $$?="Enter Reason"
  756. n181=..-
  757. n182=..Bans
  758. n183=...Add Ban
  759. n184=....1 Hour Ban:msg w ban # $$1 1 100 $$?="Enter Reason"
  760. n185=....1 Day Ban:msg w ban # $$1 24 100 $$?="Enter Reason"
  761. n186=....1 Week Ban:msg w ban # $$1 168 100 $$?="Enter Reason"
  762. n187=....14 Day Ban:msg w ban # $$1 336 100 $$?="Enter Reason"
  763. n188=....-
  764. n189=....Other:msg w ban # $$1 $$?="Enter How Many Hours" 100 $$?="Enter Reason"
  765. n190=...Unban:msg w unban # $$?="Enter nick or banmask"
  766. n191=...List Bans:msg w lbanlist #
  767. n192=...Clear Banlist:msg w clearbanlist #
  768. n193=..-
  769. n194=..Suspend
  770. n195=...1 Hour Suspension:msg w suspend # $$1 1 h
  771. n196=...1 Day Suspension:msg w suspend # $$1 1 d
  772. n197=...1 Week Suspension:msg w suspend # $$1 7 d
  773. n198=...1 Month Suspension:msg w suspend # $$1 1 m
  774. n199=..Unsuspend:msg w unsuspend # $$1
  775. n200=..-
  776. n201=..Adduser
  777. n202=...Level 50:msg w adduser # $$1 $convert($a3($$1)) 50
  778. n203=...Level 75:msg w adduser # $$1 $convert($a3($$1)) 75
  779. n204=...Level 100:msg w adduser # $$1 $convert($a3($$1)) 100
  780. n205=...Level 400:msg w adduser # $$1 $convert($a3($$1)) 400
  781. n206=...Level 450:msg w adduser # $$1 $convert($a3($$1)) 450
  782. n207=...Level 499:msg w adduser # $$1 $convert($a3($$1)) 499
  783. n208=.K9
  784. n209=..Access:msg k9 access # $$1
  785. n210=..-
  786. n211=..Set Pass:msg k9 setpass # $$?="Your New Password" 
  787. n212=..Comment:msg k9 comment # $$?="Your Comment"
  788. n213=..-
  789. n214=..Banlist
  790. n215=...Current Channel:msg k9 banlist #
  791. n216=...Other Channel:msg k9 banlist $$?="Channel Name"
  792. n217=..-
  793. n218=..Kicks
  794. n219=...Quick Kick:msg k9 kick # $$1
  795. n220=...Kick With Reason:msg k9 kick # $$1 $$?="Enter reason:"
  796. n221=...-
  797. n222=...Lamer Kick:msg k9 kick # $$1 Yer a Lamer, Please leave!
  798. n223=...Flooder Kick:msg k9 kick # $$1 Flooding isn't very polite, Please leave!
  799. n224=...Advertizer Kick:msg k9 kick # $$1 No advertizing in MY channel, its RUDE, Please leave!
  800. n225=..Bans
  801. n226=...Quick Ban:msg k9 ban # $$1 
  802. n227=...Ban with Reason:msg k9 ban # $$1 $$?="Enter reason"
  803. n228=...-
  804. n229=...Temp Bans:dde control $ddename $+ k9 addban # $$1
  805. n230=..Channel Sets
  806. n231=...Topic
  807. n232=....Set Strict Topic
  808. n233=.....On:msg k9 strictt T
  809. n234=.....Off:msg k9 strictt F
  810. n235=....-
  811. n236=....Set Topic:msg k9 topic # $$?="Topic"
  812. n237=...Modes
  813. n238=....Normal Modes (+tn):msg k9 mode # +tn
  814. n239=....-
  815. n240=....Add Modes
  816. n241=.....+t:msg k9 mode # +t
  817. n242=.....+n:msg k9 mode # +n
  818. n243=.....-
  819. n244=.....+s:msg k9 mode # +s
  820. n245=.....+l:msg k9 mode # +l $$?="Limit"
  821. n246=.....+i:msg k9 mode # +i
  822. n247=.....+k:msg k9 mode # +k $$?="Key"
  823. n248=.....+m:msg k9 mode # +m
  824. n249=....Remove Modes
  825. n250=.....-t:msg k9 mode # -t
  826. n251=.....-n:msg k9 mode # -n
  827. n252=.....-
  828. n253=.....-s:msg k9 mode # -s
  829. n254=.....-l:msg k9 mode # -l 
  830. n255=.....-i:msg k9 mode # -i
  831. n256=.....-k:msg k9 mode # -k $$?="Key"
  832. n257=.....-m:msg k9 mode # -m
  833. n258=..User Sets
  834. n259=...Add User
  835. n260=....Add 50:msg k9 adduser # $$1 50
  836. n261=....Add 75:msg k9 adduser # $$1 75
  837. n262=....Add 100:msg k9 adduser # $$1 100
  838. n263=....Add 200:msg k9 adduser # $$1 200
  839. n264=....Add 400:msg k9 adduser # $$1 400
  840. n265=....Add 450:msg k9 adduser # $$1 450
  841. n266=....-
  842. n267=....Specify Level:msg k9 adduser # $$1 $$?="Level"
  843. n268=...Remove User:msg k9 remuser # $$?="User ID"
  844. n269=...-
  845. n270=...Add Mask:msg k9 addmask # $$?="User ID" $$?="User Name?"
  846. n271=...Set Auto-Op
  847. n272=....On:msg k9 autoop # $$1 T 
  848. n273=....Off:msg k9 autoop # $$1 F
  849. n274=..-
  850. n275=..Special Commands
  851. n276=...OnJoin
  852. n277=....Add:msg k9 onjoin # add $$?="Enter Comment"
  853. n278=....Clear:msg k9 onjoin # clear
  854. n279=...-
  855. n280=...Join Channel:msg k9 join #
  856. n281=...Part Channel:msg k9 part #
  857. n282=...-
  858. n283=...K9 Say:msg k9 say # $$?="What do you want K9 to say?"
  859. n284=...K9 Action:msg k9 act # $$?="Enter action:"
  860. n285=...K9 Sound:msg k9 snd # $$?="Sound file to play" $$?="Message"
  861. n286=-
  862. n287=Ops
  863. n288=.OP (Multi):{
  864. n289=  %i = 0
  865. n290=  %nicks = ""
  866. n291=  :nx
  867. n292=  inc %i
  868. n293=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # +oooo %nicks | halt }
  869. n294=  set %nicks %nicks $snick(%i,#)
  870. n295=  if %maxmodes // %i { mode # +oooo %nicks | %nicks = "" }
  871. n296=  goto nx
  872. n297=}
  873. n298=.-
  874. n299=.DeOP (Multi):{
  875. n300=  %i = 0
  876. n301=  %nicks = ""
  877. n302=  :nx
  878. n303=  inc %i
  879. n304=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # -oooo %nicks | halt }
  880. n305=  set %nicks %nicks $snick(%i,#)
  881. n306=  if %maxmodes // %i { mode # -oooo %nicks | %nicks = "" }
  882. n307=  goto nx
  883. n308=}
  884. n309=.-
  885. n310=.Cute OP:mode # +oooo $$1 $1 $1 $1
  886. n311=.FakeOp:mode # +o $$1 | mode # -o $$1
  887. n312=Voice
  888. n313=.Give Voice (Multi):{
  889. n314=  %i = 0
  890. n315=  %nicks = ""
  891. n316=  :nx
  892. n317=  inc %i
  893. n318=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # +vvvv %nicks | halt }
  894. n319=  %nicks = %nicks $snick(%i,#)
  895. n320=  if %maxmodes // %i { mode # +vvvv %nicks | %nicks = "" }
  896. n321=  goto nx
  897. n322=}
  898. n323=.Take Voice (Multi):{
  899. n324=  %i = 0
  900. n325=  %nicks = ""
  901. n326=  :nx
  902. n327=  inc %i
  903. n328=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # -vvvv %nicks | halt }
  904. n329=  %nicks = %nicks $snick(%i,#)
  905. n330=  if %maxmodes // %i { mode # -vvvv %nicks | %nicks = "" }
  906. n331=  goto nx
  907. n332=}
  908. n333=-
  909. n334=Kicks
  910. n335=.Quick (Multi):{
  911. n336=  %i = 0
  912. n337=  :nx
  913. n338=  inc %i | if $snick(%i,#) != $null { sk $snick(%i,#) | goto nx }
  914. n339=}
  915. n340=.-
  916. n341=.With Reason:dde control $ddename $+ kick kick # $$1 %kickmsg
  917. n342=.-
  918. n343=.Action
  919. n344=..Smells Bad:ak # $$1 19
  920. n345=..Cow Suit:ak # $$1 20
  921. n346=..Weeds:ak # $$1 21
  922. n347=..Electric Chair:ak # $$1 22
  923. n348=..Royal Flush:ak # $$1 23
  924. n349=..Pirhana Clams:ak # $$1 24
  925. n350=..Emerald Wand:ak # $$1 25
  926. n351=..Axe:ak # $$1 26
  927. n352=..Microwave:ak # $$1 27
  928. n353=..Lamer Detector:ak # $$1 28
  929. n354=..Smart Bomb:ak # $$1 29
  930. n355=..Lost Head:ak # $$1 30
  931. n356=..Guillotine:ak # $$1 31
  932. n357=..Bus Stop:ak # $$1 32
  933. n358=..Elephant Smell:ak # $$1 33
  934. n359=..Mr Wizzard:ak # $$1 34
  935. n360=..Enema:ak # $$1 38
  936. n361=..Frankly My Dear:ak # $$1 37
  937. n362=..Elmer Fudd:set %chan # | set %tn $$1 | set %me $me | $readini $mircdirmisc.ini kicks 40
  938. n363=..Countdown:ak # $$1 35
  939. n364=..Op Begging:ak # $$1 36
  940. n365=Bans:{
  941. n366=  if $a5($$1) = $null { 
  942. n367=    altech -a %dis7 $+ Sorry, I don't know the address for $$1
  943. n368=    altech -a %dis8 $+ Attempting to update internal address list... | who #
  944. n369=  }
  945. n370=  else dde control $ddename $+ ban ban # $a5($$1) $a3($$1)
  946. n371=}
  947. n372=KickBans
  948. n373=.Quick (F9):f9 $$1
  949. n374=.-
  950. n375=.Dialog:{
  951. n376=  if $a5($$1) = $null { 
  952. n377=    altech -a %dis7 $+ Sorry, I don't know the address for $$1
  953. n378=    altech -a %dis8 4+ Attempting to update internal address list... | who #
  954. n379=  }
  955. n380=  else {
  956. n381=    if %kickbanmsg = $null set %kickbanmsg you are banned
  957. n382=    dde control $ddename $+ kickban kickban # %kickbanmsg $+ @ $+ $a5($$1) $a3($$1)
  958. n383=  }
  959. n384=}
  960. n385=.-
  961. n386=.Action
  962. n387=..Smells Bad:ak # $$1 1
  963. n388=..Cow Suit:ak # $$1 2
  964. n389=..Weeds:ak # $$1 3
  965. n390=..Electric Chair:ak # $$1 4
  966. n391=..Royal Flush:ak # $$1 5
  967. n392=..Pirhana Clams:ak # $$1 6
  968. n393=..Emerald Wand:ak # $$1 7
  969. n394=..Axe:ak # $$1 8
  970. n395=..Microwave:ak # $$1 9
  971. n396=..Lamer Detector:ak # $$1 10
  972. n397=..Smart Bomb:ak # $$1 11
  973. n398=..Lost Head:ak # $$1 12
  974. n399=..Guillotine:ak # $$1 13
  975. n400=..Bus Stop:ak # $$1 14
  976. n401=..Elephant Smell:ak # $$1 15
  977. n402=..Mr Wizzard:ak # $$1 16
  978. n403=..Enema:ak # $$1 39
  979. n404=..Frankly My Dear:ak # $$1 43
  980. n405=..Elmer Fudd:set %chan # | set %tn $$1 | set %me $me | $readini $mircdirmisc.ini kicks 41
  981. n406=..Countdown:ak # $$1 17
  982. n407=..Op Begging:ak # $$1 18
  983. n408=-
  984. n409=Add to Ban Lists
  985. n410=.Ban List:{
  986. n411=  if ($gl($$1) > 19) { altech -a %dis10 $+ $$1 is in your userlist, removing... | remove $$1 }
  987. n412=  if $a3($$1) = $null {
  988. n413=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
  989. n414=    set %banchan # | .enable #altban | userhost $$1
  990. n415=  }
  991. n416=  else {
  992. n417=    if $a3($$1) iswm %myadr { altech -a %dis7 $+ Duh, hey Marge... I think I'll ban myself today | altech -a %dis8 $+ Procedure Aborted! | dh }
  993. n418=    dde control $ddename $+ addban mask $a3($$1) $+ > $+ $address($$1,4) $+ > $+ #
  994. n419=    if $me isop # { kickban $a3($$1) # %default | rtb $a3($$1) # }
  995. n420=  }
  996. n421=}
  997. n422=.File Server Ban List:{
  998. n423=  if ($fserv($$1) != $null) close -f $$1
  999. n424=  unset %fsbreason | set %fsbreason $?="Enter reason (optional)"
  1000. n425=  if ($a5($$1) != $null) addfsb $convert($a5($$1)) %fsbreason
  1001. n426=  else {
  1002. n427=    altech -a %dis7 $+ $1 is not in the internal address list | altech -a %dis8 $+ Attempting alternate add...
  1003. n428=    set %addfsb $$1 | .enable #altfsb | userhost $1
  1004. n429=  }
  1005. n430=}
  1006. n431=Shut-Up Ban
  1007. n432=.Place:{
  1008. n433=  if $me !isop # notop #
  1009. n434=  if $$1 = $me { altech -a %dis7 $+ duh... Ok Marge, I think I'll place a shut up ban on myself today | altech -a %dis8 $+ Procedure Aborted! | alert }
  1010. n435=  elseif $gl($$1) > 18 { altech -a %dis10 $+ $$1 is in your userlist.  You cannot place a shut-up ban on that address! | speak you can not place a shut up ban on a recognized address }
  1011. n436=  else {
  1012. n437=    .auser -a =16 $a2($1,2)
  1013. n438=    raw -q notice # :A shut-up ban has been placed on $$1.  If he speaks, he will be kicked.
  1014. n439=    raw -q notice $me :A shut-up ban has been placed on $$1.  If he speaks, he will be kicked.
  1015. n440=  }
  1016. n441=}
  1017. n442=.-
  1018. n443=.Remove:{ .ruser =16 $a2($1) | notice # Shut-up ban on $$1 has been removed. }
  1019. n444=-
  1020. n445=Add to User List:{
  1021. n446=  set %addchan #
  1022. n447=  if $a5($$1) = $null {
  1023. n448=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
  1024. n449=    set %addnick $$1 | .enable #altadd | userhost $$1
  1025. n450=  }
  1026. n451=  else dde control $ddename adduser $$1 $convert($a1($$1))
  1027. n452=}
  1028. n453=Remove User:remove $$1
  1029. n454=-
  1030.